exception MyExn

let (_ : exn & MyExn) = exn ()